package com.wali.common.ccp.secret;


import com.wali.common.ccp.exception.CcpException;
import com.wali.common.enums.ErrorCodeEnum;

import java.security.MessageDigest;

/**
 * 协议加密解密工具类
 *
 * @author wali
 * @version [版本号, 2018年7月12日]
 */
public class CcpSecretManager {
    /**
     * MD5 标记
     */
    private static final String MD5_TAG = "MD5";

    /*
     * static final是表示了只读，切能在同一个进程空间内的多个 Instance间共享
     */
    // 28
    static final int pc_1_cp[] =
            {57, 49, 41, 33, 25, 17, 9, 1, 58, 50, 42, 34, 26, 18, 10, 2, 59, 51, 43, 35, 27, 19, 11, 3, 60, 52, 44, 36};

    // 28
    static final int pc_1_dp[] =
            {63, 55, 47, 39, 31, 23, 15, 7, 62, 54, 46, 38, 30, 22, 14, 6, 61, 53, 45, 37, 29, 21, 13, 5, 28, 20, 12, 4};

    // 48
    static final int pc_2p[] = {14, 17, 11, 24, 1, 5, 3, 28, 15, 6, 21, 10, 23, 19, 12, 4, 26, 8, 16, 7, 27, 20, 13, 2,
            41, 52, 31, 37, 47, 55, 30, 40, 51, 45, 33, 48, 44, 49, 39, 56, 34, 53, 46, 42, 50, 36, 29, 32};

    // 16
    static final int ls_countp[] = {1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1};

    // 64
    static final int iip_tab_p[] = {58, 50, 42, 34, 26, 18, 10, 2, 60, 52, 44, 36, 28, 20, 12, 4, 62, 54, 46, 38, 30,
            22, 14, 6, 64, 56, 48, 40, 32, 24, 16, 8, 57, 49, 41, 33, 25, 17, 9, 1, 59, 51, 43, 35, 27, 19, 11, 3, 61, 53,
            45, 37, 29, 21, 13, 5, 63, 55, 47, 39, 31, 23, 15, 7};

    // 64
    static final int _iip_tab_p[] = {40, 8, 48, 16, 56, 24, 64, 32, 39, 7, 47, 15, 55, 23, 63, 31, 38, 6, 46, 14, 54,
            22, 62, 30, 37, 5, 45, 13, 53, 21, 61, 29, 36, 4, 44, 12, 52, 20, 60, 28, 35, 3, 43, 11, 51, 19, 59, 27, 34, 2,
            42, 10, 50, 18, 58, 26, 33, 1, 41, 9, 49, 17, 57, 25};

    // 48
    static final int e_r_p[] = {32, 1, 2, 3, 4, 5, 4, 5, 6, 7, 8, 9, 8, 9, 10, 11, 12, 13, 12, 13, 14, 15, 16, 17, 16,
            17, 18, 19, 20, 21, 20, 21, 22, 23, 24, 25, 24, 25, 26, 27, 28, 29, 28, 29, 30, 31, 32, 1};

    // 32
    static final int local_PP[] = {16, 7, 20, 21, 29, 12, 28, 17, 1, 15, 23, 26, 5, 18, 31, 10, 2, 8, 24, 14, 32, 27, 3,
            9, 19, 13, 30, 6, 22, 11, 4, 25};

    // [8][4][16]
    static final int ccom_SSS_p[][][] = {{{14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7},
            {0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8}, {4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0},
            {15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 13}},

            {{15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10}, {3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5},
                    {0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15},
                    {13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9}},

            {{10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8}, {13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1},
                    {13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7},
                    {1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12}},

            {{7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15}, {13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9},
                    {10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4},
                    {3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14}},

            {{2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9}, {14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6},
                    {4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14},
                    {11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3}},

            {{12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11}, {10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8},
                    {9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6},
                    {4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13}},

            {{4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1}, {13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6},
                    {1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2},
                    {6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12}},

            {{13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7}, {1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2},
                    {7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8},
                    {2, 1, 14, 7, 4, 10, 8, 13, 15, 12, 9, 0, 3, 5, 6, 11}}};

    /**
     * key
     */
    static final String[] keys = {"20:57:10", "vm(697):", "!@#$%^&+", "215K,ext", "wuliancc", "GC_EXPLI", "dalvikvm",
            "Instance", "x=x-0x37", "htons100"};

    private int keyIndex = 0;

    private String defaultKey = keys[keyIndex];

    /**
     * 定义单例
     */
    private static CcpSecretManager instance = new CcpSecretManager();

    byte[][] C = new byte[17][28];

    byte[][] D = new byte[17][28];

    byte[][] K = new byte[17][48];

    /*
     * iu2b把int转换成byte
     */
    private byte iu2b(int input) {
        return (byte) (input & 0xff);
    }

    /*
     * b2iu把byte按照不考虑正负号的原则的＂升位＂成int程序， 因为java没有unsigned运算
     */
    private int b2iu(byte b) {
        return b < 0 ? b & 0x7F + 128 : b;
    }

    /*
     * desMemcpy是一个内部使用的byte数组的块拷贝函数， 从input的inpos开始把len长度的 字节拷贝到output的outpos位置开始
     */
    private void desMemcpy(byte[] output, byte[] input, int outpos, int inpos, int len) {
        int i;
        for (i = 0; i < len; i++)
            output[outpos + i] = input[inpos + i];
    }

    private void Fexpand0(byte[] in, byte[] out) {
        int divide;
        int i, j;
        byte temp1;

        for (i = 0; i < 8; i++) {
            divide = 7;
            for (j = 0; j < 8; j++) {
                temp1 = in[i];
                out[8 * i + j] = iu2b((b2iu(temp1) >>> divide) & 1);
                divide--;
            }
        }
    }

    private void FLS(byte[] bits, byte[] buffer, int count) {
        int i;
        for (i = 0; i < 28; i++)
            buffer[i] = bits[(i + count) % 28];
    }

    private void Fson(byte[] cc, byte[] dd, byte[] kk) {
        int i;
        byte[] buffer = new byte[56];
        for (i = 0; i < 28; i++)
            buffer[i] = cc[i];

        for (i = 28; i < 56; i++)
            buffer[i] = dd[i - 28];

        for (i = 0; i < 48; i++)
            kk[i] = buffer[pc_2p[i] - 1];
    }

    private void Fsetkeystar(byte[] bits) {
        int i, j;

        for (i = 0; i < 28; i++)
            C[0][i] = bits[pc_1_cp[i] - 1];
        for (i = 0; i < 28; i++)
            D[0][i] = bits[pc_1_dp[i] - 1];
        for (j = 0; j < 16; j++) {
            FLS(C[j], C[j + 1], ls_countp[j]);
            FLS(D[j], D[j + 1], ls_countp[j]);
            Fson(C[j + 1], D[j + 1], K[j + 1]);
        }
    }

    private void Fiip(byte[] text, byte[] ll, byte[] rr) {
        int i;
        byte[] buffer = new byte[64];
        Fexpand0(text, buffer);

        for (i = 0; i < 32; i++)
            ll[i] = buffer[iip_tab_p[i] - 1];

        for (i = 0; i < 32; i++)
            rr[i] = buffer[iip_tab_p[i + 32] - 1];
    }

    private void Fs_box(byte[] aa, byte[] bb) {
        int i, j, k, m;
        int y, z;
        byte[] ss = new byte[8];
        m = 0;
        for (i = 0; i < 8; i++) {
            j = 6 * i;
            y = b2iu(aa[j]) * 2 + b2iu(aa[j + 5]);
            z = b2iu(aa[j + 1]) * 8 + b2iu(aa[j + 2]) * 4 + b2iu(aa[j + 3]) * 2 + b2iu(aa[j + 4]);
            ss[i] = iu2b(ccom_SSS_p[i][y][z]);
            y = 3;
            for (k = 0; k < 4; k++) {
                bb[m++] = iu2b((b2iu(ss[i]) >>> y) & 1);
                y--;
            }
        }
    }

    private void FF(int n, byte[] ll, byte[] rr, byte[] LL, byte[] RR) {
        int i;
        byte[] buffer = new byte[64], tmp = new byte[64];
        for (i = 0; i < 48; i++)
            buffer[i] = rr[e_r_p[i] - 1];
        for (i = 0; i < 48; i++)
            buffer[i] = iu2b((b2iu(buffer[i]) + b2iu(K[n][i])) & 1);

        Fs_box(buffer, tmp);

        for (i = 0; i < 32; i++)
            buffer[i] = tmp[local_PP[i] - 1];

        for (i = 0; i < 32; i++)
            RR[i] = iu2b((b2iu(buffer[i]) + b2iu(ll[i])) & 1);

        for (i = 0; i < 32; i++)
            LL[i] = rr[i];
    }

    private void _Fiip(byte[] text, byte[] ll, byte[] rr) {
        int i;
        byte[] tmp = new byte[64];
        for (i = 0; i < 32; i++)
            tmp[i] = ll[i];
        for (i = 32; i < 64; i++)
            tmp[i] = rr[i - 32];
        for (i = 0; i < 64; i++)
            text[i] = tmp[_iip_tab_p[i] - 1];
    }

    private void Fcompress0(byte[] out, byte[] in) {
        int times;
        int i, j;

        for (i = 0; i < 8; i++) {
            times = 7;
            in[i] = 0;
            for (j = 0; j < 8; j++) {
                in[i] = iu2b(b2iu(in[i]) + (b2iu(out[i * 8 + j]) << times));
                times--;
            }
        }
    }

    private void Fencrypt0(byte[] text, byte[] mtext) {
        byte[] ll = new byte[64], rr = new byte[64], LL = new byte[64], RR = new byte[64];
        byte[] tmp = new byte[64];
        int i, j;
        Fiip(text, ll, rr);

        for (i = 1; i < 17; i++) {
            FF(i, ll, rr, LL, RR);
            for (j = 0; j < 32; j++) {
                ll[j] = LL[j];
                rr[j] = RR[j];
            }
        }

        _Fiip(tmp, rr, ll);

        Fcompress0(tmp, mtext);
    }

    private void FDES(byte[] key, byte[] text, byte[] mtext) {
        byte[] tmp = new byte[64];
        Fexpand0(key, tmp);
        Fsetkeystar(tmp);
        Fencrypt0(text, mtext);
    }

    /* 加密 */
    private byte[] encrypt(byte[] key, byte[] s, int len) {
        byte[] d = new byte[1024];
        int size = d.length;

        int i, j;
        byte[] cData = new byte[8];
        byte[] cEncryptData = new byte[8];
        for (i = 0; i < len; i += 8) {
            if ((i + 8) > len) {
                desMemcpy(cData, s, 0, i, len - i);
                for (j = len - i; j < 8; j++)
                    cData[j] = 0;
            } else
                desMemcpy(cData, s, 0, i, 8);
            FDES(key, cData, cEncryptData);
            // desMemcpy(d, cEncryptData, i, 0, 8);

            if ((i + 8) >= size) {
                size += size;
                byte[] temp = new byte[size];
                System.arraycopy(d, 0, temp, 0, i);
                d = temp;
            }
            desMemcpy(d, cEncryptData, i, 0, 8);
        }

        byte[] result = new byte[i];
        System.arraycopy(d, 0, result, 0, i);
        return result;
    }

    private void Fdiscrypt0(byte[] mtext, byte[] text) {
        byte[] ll = new byte[64], rr = new byte[64], LL = new byte[64], RR = new byte[64];
        byte[] tmp = new byte[64];
        int i, j;
        Fiip(mtext, ll, rr);

        for (i = 16; i > 0; i--) {
            FF(i, ll, rr, LL, RR);
            for (j = 0; j < 32; j++) {
                ll[j] = LL[j];
                rr[j] = RR[j];
            }
        }

        _Fiip(tmp, rr, ll);

        Fcompress0(tmp, text);
    }

    /***************************************************************************
     * function: DES parameter: u_char * key ; key for encrypt u_char * mtext ; encipher data u_char * text ; plain data
     * return: none
     **************************************************************************/
    private void _FDES(byte[] key, byte[] mtext, byte[] text) {
        byte[] tmp = new byte[64];
        Fexpand0(key, tmp);
        Fsetkeystar(tmp);
        Fdiscrypt0(mtext, text);
    }

    /* 解密 */
    private byte[] decrypt(byte[] key, byte[] d, int len) {
        byte[] s = new byte[1024];
        int size = s.length;

        int i;
        byte[] cData = new byte[8];
        byte[] cEncryptData = new byte[8];
        for (i = 0; i < len; i += 8) {
            desMemcpy(cEncryptData, d, 0, i, 8);
            _FDES(key, cEncryptData, cData);
            // desMemcpy(s, cData, i, 0, 8);

            if ((i + 8) >= size) {
                size += size;
                byte[] temp = new byte[size];
                System.arraycopy(s, 0, temp, 0, i);
                s = temp;
            }
            desMemcpy(s, cData, i, 0, 8);
        }

        byte[] result = new byte[i];
        System.arraycopy(s, 0, result, 0, i);
        return result;
    }

    /*--------------------------------------------------------------*/

    /*
     * byteHEX()，用来把一个byte类型的数转换成十六进制的ASCII表示， 因为java中的byte的toString无法实现这一点，我们又没有C语言中的 sprintf(outbuf,"%02X",ib)
     */
    private String byteHEX(byte ib) {
        char[] Digit = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'};
        char[] ob = new char[2];
        ob[0] = Digit[(ib >>> 4) & 0X0F];
        ob[1] = Digit[ib & 0X0F];
        String s = new String(ob);
        return s;
    }

    private String byteArr2HexStr(byte[] byteArr) {
        String hexStr = "";
        for (int i = 0; i < byteArr.length; i++) {
            hexStr += byteHEX(byteArr[i]);
        }
        return hexStr;
    }

    private byte[] hexStr2ByteArr(String hexStr) {
        byte[] arrB = hexStr.getBytes();
        int iLen = arrB.length;

        // 两个字符表示一个字节，所以字节数组长度是字符串长度除以2
        byte[] arrOut = new byte[iLen / 2];
        for (int i = 0; i < iLen; i = i + 2) {
            String strTmp = new String(arrB, i, 2);
            arrOut[i / 2] = (byte) Integer.parseInt(strTmp, 16);
        }
        return arrOut;
    }

    /**
     * 消息加密
     *
     * @param str 消息字符串
     * @return String 加密后的密文
     * @see [类、类#方法、类#成员]
     */
    public String encode(String str) {
        byte[] byteMingW = str.getBytes();
        byte[] byteMiW = encrypt(defaultKey.getBytes(), byteMingW, byteMingW.length);

        String digestHexStr = byteArr2HexStr(byteMiW);

        return digestHexStr;
    }

    public static void main(String[] args) {
        String str = CcpSecretManager.getInstance().encode("wlV1-Oms");
        System.out.println("str = " + str);

        str = CcpSecretManager.getInstance().decode(str);
        System.out.println("str = " + str);

        str = CcpSecretManager.getInstance().encode("oms");
        System.out.println("str = " + str);

        str = CcpSecretManager.getInstance().decode(str);
        System.out.println("str = " + str);
    }

    /**
     * 消息加密
     *
     * @param str 消息字符串
     * @param key 消加密key
     * @return String 加密后的密文
     */
    public String encode(String str, String key) {
        if (key == null || key.equals("")) {
            return encode(str);
        }

        byte[] byteMingW = str.getBytes();
        byte[] byteMiW = encrypt(key.getBytes(), byteMingW, byteMingW.length);

        String digestHexStr = byteArr2HexStr(byteMiW);

        return digestHexStr;
    }

    /**
     * 消息解密
     *
     * @param hexStr 消息密文
     * @return String 解密后的明文
     */
    public String decode(String hexStr) {
        byte[] byteMiW = hexStr2ByteArr(hexStr);
        byte[] byteMingW = decrypt(defaultKey.getBytes(), byteMiW, byteMiW.length);

        String digestStr = new String(byteMingW).trim();

        return digestStr;
    }

    /**
     * 消息解密
     *
     * @param hexStr 消息密文
     * @param key    消息key
     * @return String 解密后的明文
     */
    public String decode(String hexStr, String key) {

        if (key == null || key.equals("")) {
            return decode(hexStr);
        }

        byte[] byteMiW = hexStr2ByteArr(hexStr);
        byte[] byteMingW = decrypt(key.getBytes(), byteMiW, byteMiW.length);

        String digestStr = new String(byteMingW).trim();

        return digestStr;
    }

    /**
     * 获取单例
     *
     * @return
     */
    public static CcpSecretManager getInstance() {
        return instance;
    }

    /**
     * 将字符串以MD5形式加密
     *
     * @param strIN 明文
     * @return 加密字符串
     * @throws Exception
     */
    public String encryptMD5(String strIN)
            throws CcpException {
        MessageDigest alg;
        try {
            alg = MessageDigest.getInstance(MD5_TAG);
            alg.update(strIN.getBytes());
            byte[] bytes = alg.digest();
            StringBuffer hexString = new StringBuffer();
            for (int i = 0; i < bytes.length; i++) {
                String temp = Integer.toHexString(0xFF & bytes[i]);
                if (temp.length() == 1) {
                    temp = "0" + temp;
                }
                hexString.append(temp);
            }

            return hexString.toString();
        } catch (Exception e) {
            throw new CcpException(ErrorCodeEnum.ERROR_SECRET_ENCRYPT_MD5_EXCEPTION, e);
        }

    }

    /**
     * 对明文密码进行二次加密
     *
     * @param password 密码
     * @return String 返回加密密码
     * @throws CcpException
     * @author wali
     * @版本号 [2018年7月12日]
     */
    public String encryptPassword(String password)
            throws CcpException {
        String finalPwd = "";
        try {
            String firstPwd = encryptMD5(password);
            finalPwd = encryptMD5(firstPwd);
        } catch (Exception e) {
            throw new CcpException(ErrorCodeEnum.ERROR_SECRET_ENCRYPT_MD5_EXCEPTION, e);
        }

        return finalPwd;
    }

    /**
     * 16位md5加密
     *
     * @param strIN
     * @return
     * @throws CcpException
     */
    public String encryptMD516Bit(String strIN)
            throws CcpException {
        // 截短32位md5码为16位md5码
        return encryptMD5(strIN).substring(8, 24);
    }

    private static String bytes2Hex(byte[] orignalBytes) {
        StringBuffer strBuffer = new StringBuffer();
        for (int i = 0; i < orignalBytes.length; i++) {
            String tempStr = Integer.toHexString(orignalBytes[i] & 0xff);
            if (tempStr.length() == 1) {
                strBuffer.append("0");
            }
            strBuffer.append(tempStr);
        }

        return strBuffer.toString();
    }


    /**
     * 二进制的byte[]转为十六进制的字符串
     *
     * @param buf
     * @return
     * @author wali
     * @version [版本号, 2018年7月12日]
     */
    public static String parseByte2HexStr(byte buf[]) {
        StringBuffer sb = new StringBuffer();
        for (int i = 0; i < buf.length; i++) {
            String hex = Integer.toHexString(buf[i] & 0xFF);
            if (hex.length() == 1) {
                hex = '0' + hex;
            }
            sb.append(hex.toUpperCase());
        }
        return sb.toString();
    }


}
